﻿Public Partial Class Wfrm_Crear_Prueba
    Inherits Wfrm_Master

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then        
            ViewState("usuario") = Session("usuario")
            txt_codigo_prueba.Text = Guid.NewGuid.ToString()
            txt_usuario_prueba.Text = ViewState("usuario")
            txt_usuario_UPDATE.Text = ViewState("usuario")

            If Not Session("secciones") Is Nothing Then                
                txt_id_prueba.Text = Session("id_prueba")
                txt_titulo_prueba.Text = Session("nombre_prueba")
                txt_codigo_prueba.Text = Session("txt_codigo_prueba")
                txt_Observacion_prueba.Text = Session("txt_Observacion_prueba")
            End If

            Cargar_Ramo()
            Cargar_Curso()
            Cargar_Nivel()

        End If

    End Sub
    Sub Cargar_Ramo()
        Carga_CMB_Concepto(cmb_ramo, "SP_GET_RAMO")
    End Sub
    Sub Cargar_Curso()
        Carga_CMB_Concepto(cmb_curso, "SP_GET_curso")
    End Sub
    Sub Cargar_Nivel()
        Carga_CMB_Concepto(cmb_nivel, "SP_GET_nivel")
    End Sub
    Protected Sub Btn_Crear_Prueba_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Btn_Crear_Prueba.Click
        If cmb_puntos.Text = 0 Then
            MsgInformativo("Seleccione la Sección")
            Exit Sub
        End If

        If txt_titulo_prueba.Text.Trim.Length = 0 Then
            MsgInformativo("Ingrese el Título de la Prueba")
            Exit Sub
        End If

        MsgConfirm("¿Confirma grabar Prueba?", "Save_Prueba")

    End Sub

    <Anthem.Method()> _
    Sub Save_Prueba()
        SavePrueba()
    End Sub

    Function SavePrueba() As Boolean
        Dim rp As New DotNetResponse.SQLPersistence
        CL_PRUEBA.SavePrueba(rp, Val(txt_id_prueba.Text), txt_codigo_prueba.Text.Trim, Trim(txt_titulo_prueba.Text), Trim(txt_Observacion_prueba.Text), cmb_puntos.SelectedValue, cmb_ramo.SelectedValue, cmb_curso.SelectedValue, cmb_nivel.SelectedValue, cmb_vigencia.SelectedValue, ViewState("usuario"))
        If rp.TieneDatos Then
            txt_id_prueba.Text = rp.Get_Value
            txt_id_prueba.UpdateAfterCallBack = True
        End If

        If Not rp.Errores Then
            MsgInformativo("Prueba grabada correctamente")
            Return True
        Else
            MsgError(rp.MensajeError)
            Return False
        End If

    End Function

    Protected Sub Btn_Secciones_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Btn_Secciones.Click

        If Val(txt_id_prueba.Text) = 0 Then
            MsgInformativo("Debe grabar para poder continuar")
            Exit Sub
        End If

        Session("usuario") = ViewState("usuario")
        Session("id_prueba") = txt_id_prueba.Text       
        ' Server.Transfer("Wfrm_Crear_Modificar_Seccion_Pruebas.aspx", True)
        Response.Redirect("Wfrm_Crear_Modificar_Seccion_Pruebas.aspx", True)


    End Sub
End Class